home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / tree.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  382 b   |  29 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 12
  3. 5
  4. 30
  5. #
  6. c(12)T
  7. #
  8. T=[F~(5)FSd]
  9. S=~(5)FRR[Ba]d>(30)~(5)FRR[Ba]d>(30)!(.8)S
  10. R=[Ba]d>(120)
  11. #
  12. a=~(10)$F[Cxd]~(10)$Fd!(.8)b
  13. b=~(10)$F[Dyd]~(10)$Fd!(.8)a
  14. d=[g(300)g(40)Lg(40)Lg(40)Lg(40)Lg(40)Lg(40)L]
  15. #
  16. B=&B
  17. C=+C
  18. D=-D
  19. #
  20. x=a
  21. y=b
  22. #
  23. F='(1.25)F'(.8)
  24. #
  25. L=[~f(7)c(8){+(30)f(200)-(120)f(200)-(120)f(200)}]
  26. f=z
  27. z=_
  28. @
  29.